home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Generate / g-duplicate < prev    next >
Encoding:
Text File  |  1998-08-11  |  1.4 KB  |  41 lines  |  [TEXT/ScoM]
  1. g-duplicate seed low-offset high-offset low-repeat high-repeat low-ratio high-ratio transp list
  2.  
  3. Use this function to generate any number-of-repeats of given range of a symbol-pattern.
  4.  
  5. (g-duplicate .56 nil nil 1 7 nil nil nil '(a b c))
  6. => ((a a a a) (b b b) (c c))
  7.  
  8. (g-duplicate .56 nil nil 1 7 nil nil 13 '(a b c))
  9. => ((a n n a) (o o o) (c p))
  10.  
  11. (g-duplicate .56 1 2 1 7 nil nil 13 '(a b c))
  12. => ((a n n a) (a a o) (c p))
  13.  
  14. (g-duplicate .56 nil nil 1 7 1 4 13 '(a b c))
  15. => ((a a n n) (b b b) (c c))
  16.  
  17. (g-duplicate .35 nil nil 1 3 1 2 '(11 6) '((a b c) (d e f)))
  18. => (((a l) (b m b) (c n)) ((d d) (e) (f)))
  19.  
  20. (g-duplicate nil 1 2 1 4 1 3 0 '(a b c d e f))
  21. => ((a a) (b) (c a b b) (d d) (e d d c) (f)) ...
  22.  
  23. (g-duplicate .34 1 3 1 4 1 2 0 '(a b c d e f))
  24. => ((a a) (b b a b) (c b) (d d a a) (e e d d) (f f))
  25.  
  26. (g-duplicate .23 1 2 1 7 1 3 11 '((a b c d e f) (g h i j k l)))
  27. => (((a a) (b b b m) (c a a a n) (d) (e e d p p p d) (f f f)) 
  28.     ((g g r r g) (h h g s h) (i i t i) (j j u j h h j)
  29.      (k k v j j k) (l l)))
  30.  
  31. (g-duplicate .23 1 2 1 4 1 3 '(11 6 1 11)
  32.              '((a b c d e f) (g h i j k l)))
  33. => (((a) (b m) (c a a) (d) (e e d d) (f e)) 
  34.     ((g m g) (h g g) (i o) (j j p p) (k k q q) (l)))
  35.  
  36. (g-duplicate .23 nil nil 1 7 1 3 '((11 -11) (1 11))
  37.                '((a b c d e f) (g h i j k l)))
  38. => (((a a) (b b b -k) (c n n n c) (d)
  39.      (e e p e e e p) (f f f)) 
  40.     ((g g h h g) (h h s h s) (i i j i)
  41.      (j j u j u u j) (k k l k k l) (l l)))